COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	.DEVICE XGP
C00006 ENDMK
C⊗;
.DEVICE XGP
.page frame 52 high 80 wide
.title area heading lines 1 to 3
.area text lines 4 to 52

.FONT 1 "BASL30"; FONT 2 "BASI30"; FONT 3 "BASB30";
.ODDLEFTBORDER←EVENLEFTBORDER←1000;
.TURN ON "%{α"
.AT "ffi" ⊂ IF THISFONT ≤ 3 THEN "≠"  ELSE "fαfαi" ⊃;
.AT "ffl" ⊂ IF THISFONT ≤ 3 THEN "α∞" ELSE "fαfαl" ⊃;
.AT "ff"  ⊂ IF THISFONT ≤ 3 THEN "≥"  ELSE "fαf" ⊃;
.AT "fi"  ⊂ IF THISFONT ≤ 3 THEN "α≡" ELSE "fαi" ⊃;
.AT "fl"  ⊂ IF THISFONT ≤ 3 THEN "∨"  ELSE "fαl" ⊃;

.MACRO FAC ⊂FILL ADJUST COMPACT ⊃
.MACRO FAD ⊂FILL ADJUST COMPACT DOUBLE SPACE; PREFACE 2 ⊃

.MACRO LTR(name,dat)  ⊂
.every heading(,,);
.FONT 4 "NGB25"; FONT 5 "STA200"
.place heading; nofill;
%5S%4 Artificial Intelligence Laboratory, STANFORD UNIVERSITY, Stanford, California 94305
.SELECT 4; if length ("dat") > 2 then date←"dat";
.place text;
.once turn on "→"
Telephone 415 497-4971→{date}
.SKIP 3; SELECT 1
name
.nam←scan("name",",");
.every heading("%3{nam}","{date}","Page {Page}");
.xgenlines←-3; title←"Executive Officer";
.⊃

.MACRO ARPA ⊂}Information Processing Techniques
Defense Advanced Research Projects Agency
1700 Wilson Boulevard
Arlington, Virginia 22209
.⊃

.MACRO LDE ⊂ GROUP BEGIN SKIP 2; NOFILL; turn on "→";
Sincerely,→LDE/pdp10
.SKIP 3
Lester D. Earnest
{title}
.END APART ⊃

.MACRO MEMO(sink,source,subj,DAT)  ⊂
.every heading(,,);
.FONT 4 "STA200"
.place heading
.turn on "∂←→"; nofill
%4S∂1←%3Stanford Artificial Intelligence Laboratory→Tel. ext. 74971
.place text; if length("DAT") then date←"DAT";
←MEMORANDUM→{DATE}
.skip;fill;indent 0,8;
To:%1∂9sink

%3From:∂9%1source

%3Subject:∂9%1subj

.indent 0,0; turn off "←→";
.every heading("%3subj",,"Page {Page}");
.xgenlines←-3;
.⊃

.macro ref ⊂ select 3; nofill;
References:
.skip; select 1; indent 0,8;
. ⊃

.macro BS ⊂ BEGIN INDENT 0,3; PREFACE SPREAD-1; NOJUST ⊃

.MACRO BC ⊂ BEGIN PREFACE SPREAD-1; CRBREAK; INDENT 0,3; NOJUST ⊃

.macro cb(head) ⊂ if lines<5 then next page else skip; once center; select 3
head

.⊃

.macro boldit ⊂ turn on "%";
.  at """" ⊂ (if thisfont=1 then "%3" else "%1") ⊃;
.  at "<" ⊂"%2"⊃; at ">" ⊂"%1"⊃;
.⊃

.macro OI ⊂ once boldit; ⊃;

.portion main
.place text
.page←1